home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinNT Start Menu 1.xpl < prev    next >
Text File  |  2002-01-01  |  2KB  |  92 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="9"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Start menu\Windows NT"
  5. "NAME"="Visible Items"
  6. "VERSION"="2.00"
  7. "LANGUAGE"="VBScript"
  8. "OSVERSION"="01"
  9. "TEXT 1"="Aha! You can't see this!"
  10. "DESCRIPTION 1"="Use this plug-in to show or hide some of the items in the Start menu."
  11. "DESCRIPTION 2"="NOTE #1: It can happen that if you disable the "Run..." command, you can no longer use the address bar of Internet Explorer. This seems to be a bug inside IE."
  12. "DESCRIPTION 3"="NOTE #2: Disabling "Find..." may also disable the context menu (Right-click) of the START button."
  13. "DESCRIPTION 4"="NOTE #3: Show "Log Off <username>" might not work if IE 5 is installed. Also, disabling this option will disable the SHUTDOWN button in the CTRL+ALT+DEL menu.
  14. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  15. "CONTACTURL"="http://www.xteq.com/"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"=" "
  18.  
  19.  
  20. sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
  21. sV1=sP & "NoFavoritesMenu"
  22. sV2=sP & "NoRecentDocsMenu"
  23. sV3=sP & "NoRun"
  24. sV4=sP & "NoClose"
  25. sV5=sP & "NoFind"
  26. sV6=sP & "NoLogOff" 
  27.  
  28.  
  29. SUB Plugin_Initialize
  30.  Call SetUIElement(1,"Favorites")
  31.  Call ReadIt(1,sV1)
  32.  
  33.  Call SetUIElement(2,"Documents")
  34.  Call ReadIt(2,sV2)
  35.  
  36.  Call SetUIElement(3,"Run...")
  37.  Call ReadIt(3,sV3)
  38.  
  39.  Call SetUIElement(4,"Shut Down...")
  40.  Call ReadIt(4,sV4)
  41.  
  42.  Call SetUIElement(5,"Find") 
  43.  Call ReadIt(5,sV5)
  44.  
  45.  Call SetUIElement(6,"Log Off <username>...")
  46.  Call ReadIt(6,sV6)
  47.  
  48. END SUB
  49.  
  50. 'Called when the Plugin should apply the changes
  51. SUB Plugin_Apply(ElementIndex,ElementSubIndex) 
  52.  Call WriteIt(1,sV1)
  53.  Call WriteIt(2,sV2)
  54.  Call WriteIt(3,sV3)
  55.  Call WriteIt(4,sV4)
  56.  Call WriteIt(5,sV5)
  57.  Call WriteIt(6,sV6)
  58.  
  59.  
  60.  Call IndicateSettingChange()
  61. END SUB
  62.  
  63. Sub ReadIt(ITM,PATH1)
  64.  if RegValueExists(PATH1)=false then 'setting available?
  65.     'no setting -> item visible
  66.     Call SetUIElementEx(ITM,true)
  67.  else
  68.     i=RegReadValue(PATH1)
  69.     if i=0 then 
  70.        Call SetUIElementEx(ITM,true)
  71.     end if
  72.  end if
  73.  
  74. End Sub
  75.  
  76. Sub WriteIt(ITM,PATH1)
  77.  b=GetUIElementEx(ITM)
  78.  if b=true then
  79.  
  80.     s=RegReadValue(PATH1)
  81.     if IsEmpty(s)=false then
  82.        Call RegDeleteValue(PATH1)
  83.     end if
  84.  
  85.  else
  86.     Call RegWriteValue(PATH1,1,2)
  87.  end if
  88. End Sub
  89.  
  90. SUB Plugin_Terminate
  91. END SUB
  92.